VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CuotasPrestamos"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''
''  CuotasPrestamos.cls
''  Implementation of the table Class CuotasPrestamos
''  Generated by Enterprise Architect
''  Created on:      15-Abr-2009 08:06:12 p.m.
''  Original author: Administrador
''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''



'Public PK_Prestamos As Prestamos
'Public PK_Prestamista As Prestamista
Private m_cprCodigo As Integer
Private m_cprCodigoCredito As Integer
Private m_cprFechaCobro As Date
Private m_cprPrsCodigo As Integer
Private m_cprFechaRealCobro As Date
Private m_cprImporteCuota As Single
Private m_cprNumeroCuota As Integer
Private m_cprImportePago As Single
Private m_cprFechaPasar As Date
Private m_cprNumeroCobrador As Integer

Public Property Get cprCodigo() As Integer
    cprCodigo = m_cprCodigo
End Property
Public Property Let cprCodigo(ByVal inNew As Integer)
    If (m_cprCodigo = inNew) Then Exit Property
    m_cprCodigo = inNew
End Property

Public Property Get cprCodigoCredito() As Integer
    cprCodigoCredito = m_cprCodigoCredito
End Property
Public Property Let cprCodigoCredito(ByVal inNew As Integer)
    If (m_cprCodigoCredito = inNew) Then Exit Property
    m_cprCodigoCredito = inNew
End Property

Public Property Get cprFechaCobro() As Date
    cprFechaCobro = m_cprFechaCobro
End Property
Public Property Let cprFechaCobro(ByVal inNew As Date)
    If (m_cprFechaCobro = inNew) Then Exit Property
    m_cprFechaCobro = inNew
End Property

Public Property Get cprPrsCodigo() As Integer
    cprPrsCodigo = m_cprPrsCodigo
End Property
Public Property Let cprPrsCodigo(ByVal inNew As Integer)
    If (m_cprPrsCodigo = inNew) Then Exit Property
    m_cprPrsCodigo = inNew
End Property

Public Property Get cprFechaRealCobro() As Date
    cprFechaRealCobro = m_cprFechaRealCobro
End Property
Public Property Let cprFechaRealCobro(ByVal inNew As Date)
    If (m_cprFechaRealCobro = inNew) Then Exit Property
    m_cprFechaRealCobro = inNew
End Property

Public Property Get cprImporteCuota() As Single
    cprImporteCuota = m_cprImporteCuota
End Property
Public Property Let cprImporteCuota(ByVal inNew As Single)
    If (m_cprImporteCuota = inNew) Then Exit Property
    m_cprImporteCuota = inNew
End Property

Public Property Get cprNumeroCuota() As Integer
    cprNumeroCuota = m_cprNumeroCuota
End Property
Public Property Let cprNumeroCuota(ByVal inNew As Integer)
    If (m_cprNumeroCuota = inNew) Then Exit Property
    m_cprNumeroCuota = inNew
End Property

Public Property Get cprImportePago() As Single
    cprImportePago = m_cprImportePago
End Property
Public Property Let cprImportePago(ByVal inNew As Single)
    If (m_cprImportePago = inNew) Then Exit Property
    m_cprImportePago = inNew
End Property

Public Property Get cprFechaPasar() As Date
    cprFechaPasar = m_cprFechaPasar
End Property
Public Property Let cprFechaPasar(ByVal inNew As Date)
    If (m_cprFechaPasar = inNew) Then Exit Property
    m_cprFechaPasar = inNew
End Property

Public Property Get cprNumeroCobrador() As Integer
    cprNumeroCobrador = m_cprNumeroCobrador
End Property
Public Property Let cprNumeroCobrador(ByVal inNew As Integer)
    If (m_cprNumeroCobrador = inNew) Then Exit Property
    m_cprNumeroCobrador = inNew
End Property


